home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / SystemCode / latex.tcl < prev    next >
Encoding:
Text File  |  1994-06-13  |  55.9 KB  |  2,584 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #
  3. # latex.tcl:  macros and bindings for LaTeX users
  4. #
  5. # -- see files 'LaTeX Help' and 'commands.tex' in the Help folder
  6. #
  7. #############################################################################
  8. #
  9. # version 1.1 and 1.2 (11/10/92) by Richard T. Austin (austin@eecs.umich.edu)
  10. # version 2.0 (1/24/93) by Tom Scavo (scavo@cie.uoregon.edu)
  11. #
  12. # If you make improvements to this file, please share them!
  13. #
  14. #############################################################################
  15.  
  16. source "$HOME:Tcl:UserCode:smart.tcl"
  17.  
  18. #############################################################################
  19. #
  20. # Flags and Variables.
  21. #
  22. #############################################################################
  23.  
  24. set true 1
  25. set false 0
  26. # set insertLatexParameter $true
  27. # set noInsertLatexParameter $false
  28.  
  29. initTclFlag useBoxMacro
  30. initTclFlag deleteObjectNoisily
  31. initTclFlag deleteEnvironmentNoisily
  32. set useBoxMacro $true
  33. set deleteObjectNoisily $false
  34. set deleteEnvironmentNoisily $true
  35. initTclVar boxMacroName
  36. set boxMacroName "BoxedEPSF"
  37.  
  38. proc GoTeX {menu item} {dosc -c '*TEX' -s [getText 0 [maxPos]] -r}
  39. menu -n "$texturesMenu" -p GoTeX {Typeset}
  40.  
  41.  
  42. #############################################################################
  43. #
  44. # Utility Macros.
  45. #
  46. #############################################################################
  47.  
  48. # A boolean function which checks to see if there's a current selection.
  49. proc isSelection {} {
  50.     return [string length [getSelect]]
  51. }
  52.  
  53. # Select the line containing the insertion point.
  54. proc lineSelect {} {
  55.     goto [lineStart [getPos]]
  56.     nextLineSelect
  57. }
  58.  
  59. # A boolean function which takes any string and tests to see if
  60. # that string contains all whitespace characters.  Carriage returns 
  61. # are considered whitespace, as are spaces and tabs.
  62. proc isWhitespace {anyString} {
  63.     set len [string length $anyString]
  64.     for {set i 0} {$i < $len} {incr i} {
  65.         set c [string index $anyString $i]
  66.         if {($c != "\ ") && ($c != "\t") && ($c != "\r")} then {return 0}
  67.     }
  68.     return 1
  69. }
  70.  
  71. # Insert a carriage return at the insertion point if any
  72. # character preceding the insertion point (on the same line)
  73. # is a non-whitespace character.
  74. proc openingCarriageReturn {} {
  75.     set end [getPos]
  76.     set start [lineStart $end]
  77.     set text [getText $start $end]
  78.     if {![isWhitespace $text]} carriageReturn
  79. }
  80.  
  81. # Insert a carriage return at the insertion point if any
  82. # character following the insertion point (on the same line)
  83. # is a non-whitespace character.
  84. proc closingCarriageReturn {} {
  85.     set start [getPos]
  86.     set end [nextLineStart $start]
  87.     set text [getText $start $end]
  88.     if {![isWhitespace $text]} carriageReturn
  89. }
  90.  
  91. # Set up tab stop mechanism.
  92. proc gotoTabStop {directionIndicator} {
  93.     set searchResult [search -n -f $directionIndicator -m 0 -i 1 -r 0 {•} [getPos]]
  94.     if {[llength $searchResult] == 0} then {
  95.         message "tab stop not found"
  96.         return 0
  97.     } else {
  98.         goto [lindex $searchResult 0]
  99.         return 1
  100.     }
  101. }
  102. proc nextTabStop {} {
  103.     if {[gotoTabStop 1]} {deleteChar}
  104. }
  105. proc previousTabStop {} {
  106.     if {[gotoTabStop 0]} {deleteChar}
  107. }
  108.  
  109. # Insert an object at the insertion point. If there is a selection and the 
  110. # global variable deleteObjectNoisily is false, quietly delete the selection 
  111. # first (just like "paste"). Otherwise, prompt the user for the appropriate 
  112. # action. Returns true if the object is ultimately inserted, and false if the 
  113. # user cancels the operation. 
  114. proc insertObject {objectName} {
  115.     global deleteObjectNoisily
  116.     if {[isSelection]} then {
  117.         if {$deleteObjectNoisily} then {
  118.             case [askyesno "Delete selection?"] in {
  119.                 "yes" {deleteText [getPos] [selEnd]}
  120.                 "no" {backwardChar}
  121.                 "cancel" {return 0}
  122.             }
  123.         } else {
  124.             deleteText [getPos] [selEnd]
  125.         }
  126.     }
  127.     insertText $objectName
  128.     return 1
  129. }
  130.  
  131. # Insert an object at the insertion point. If there is a selection, wrap 
  132. # it inside the parameters $left and $right. Returns true if there is a 
  133. # selection (in which case it will wrap), and false otherwise. 
  134. proc wrapObject {left right} {
  135.     set currentPos [getPos]
  136.     set selected [isSelection]
  137.     if {$selected} then {
  138.         replaceText $currentPos [selEnd] $left [getSelect] $right
  139.     } else {
  140.         insertText $left "•" $right
  141.     }
  142.     goto $currentPos
  143.     nextTabStop
  144.     return $selected
  145. }
  146.  
  147. # Inserts an environment with the specified name at the insertion point. 
  148. # Preserves indentation, and positions the cursor at the beginning of the 
  149. # environment body (to be inserted by the calling procedure). If the 
  150. # parameter latexParameter is true, a LaTeX parameter is inserted and the 
  151. # cursor is positioned there instead. Deletes the current selection quietly 
  152. # if the global variable deleteEnvironmentNoisily is false; otherwise the 
  153. # user is prompted for directions. Returns true if the environment is 
  154. # ultimately inserted, and false if the user cancels the operation. 
  155. proc insertEnvironment {environmentName latexParameter} {
  156.     global deleteEnvironmentNoisily
  157.     if {[isSelection]} then {
  158.         if {$deleteEnvironmentNoisily} then {
  159.             case [askyesno "Delete selection?"] in {
  160.                 "yes" {deleteText [getPos] [selEnd]}
  161.                 "no" {backwardChar}
  162.                 "cancel" {return 0}
  163.             }
  164.         } else {
  165.             deleteText [getPos] [selEnd]
  166.         }
  167.     }
  168.     set currentPos [getPos]
  169.     openingCarriageReturn
  170.     insertText "\\begin{" $environmentName "}"
  171.     # insert optional LaTeX parameter here:
  172.     if {$latexParameter} {insertText "{•}"}
  173.     carriageReturn
  174.     tab
  175.     insertText "•"
  176.     carriageReturn
  177.     backwardChar
  178.     deleteChar
  179.     insertText "\\end{" $environmentName "}•"
  180.     closingCarriageReturn
  181.     goto $currentPos
  182.     nextTabStop
  183.     return 1
  184. }
  185.  
  186. # Insert an environment with the given name at the insertion point. If there 
  187. # is currently a selection, cut and paste it into the body of the new 
  188. # environment, indent it, and leave it highlighted. Returns true if there is 
  189. # a selection, and false otherwise. 
  190. proc wrapEnvironment {environmentName latexParameter} {
  191.     if {[isSelection]} then {
  192.         set indent [indentString [getPos]]
  193.         set text [getSelect]
  194.         deleteText [getPos] [selEnd]
  195.         insertText $indent "\r"
  196.         backwardChar
  197.         insertEnvironment $environmentName $latexParameter
  198.         if {$latexParameter} then {
  199.             insertText "•"
  200.             nextTabStop
  201.         }
  202.         lineSelect
  203.         clear
  204.         insertText $text
  205.         markHilite
  206.         shiftRight
  207.         return 1
  208.     } else {
  209.         insertEnvironment $environmentName $latexParameter
  210.         return 0
  211.     }
  212. }
  213.  
  214.  
  215. #############################################################################
  216. # 
  217. # Paragraph Mode Macros.
  218. #
  219. #############################################################################
  220.  
  221. # Documents:
  222. proc insertDocument {documentType} {
  223.     set currentPos [getPos]
  224.     insertText "\\documentstyle\[•\]{$documentType}"
  225.     carriageReturn
  226.     insertEnvironment "document" 0
  227.     backwardChar
  228.     deleteChar
  229.     carriageReturn
  230.     insertText "•"
  231.     carriageReturn
  232.     nextTabStop
  233.     carriageReturn
  234.     goto $currentPos
  235.     nextTabStop
  236. }
  237. proc isDocumentSelected {} {
  238.     return 1
  239. }
  240. proc isEmptyFile {} {
  241.     return 1
  242. }
  243. proc wrapDocument {documentType} {
  244.     if {[isSelection]} then {
  245.         if {[isDocumentSelected]} then {
  246.             set text [getSelect]
  247.             deleteText [getPos] [selEnd]
  248.         } else {
  249.             case [askyesno "Select entire document?"] in {
  250.                 "yes" {}
  251.                 "no" {
  252.                     set text [getSelect]
  253.                     deleteText [getPos] [selEnd]
  254.                 }
  255.                 "cancel" {return 0}
  256.             }
  257.         }
  258.         set currentPos [getPos]
  259.         insertDocument $documentType
  260.         insertText "•"
  261.         nextTabStop
  262.         lineSelect
  263.         clear
  264.         insertText $text
  265.         markHilite
  266.         nextTabStop
  267.     } else {
  268.         if {![isEmptyFile]} then {
  269.             case [askyesno "Wrap existing text?"] in {
  270.                 "yes" {}
  271.                 "no" {}
  272.                 "cancel" {return 0}
  273.             }
  274.         }
  275.         insertDocument $documentType
  276.     }
  277.     return 1
  278. }
  279.  
  280. proc letter {} {
  281.     wrapDocument "letter"
  282.     message "type style option(s)"
  283. }
  284. proc article {} {
  285.     wrapDocument "article"
  286.     message "type style option(s)"
  287. }
  288. proc report {} {
  289.     wrapDocument "report"
  290.     message "type style option(s)"
  291. }
  292. proc book {} {
  293.     wrapDocument "book"
  294.     message "type style option(s)"
  295. }
  296.  
  297. proc custom {} {
  298.     catch {prompt "What document type?" "article"} documentType
  299.     if {$documentType != "cancel"} then {
  300.         wrapDocument $documentType
  301.         message "type style option(s)"
  302.     }
  303. }
  304.  
  305. # Sectioning:
  306. proc part {} {
  307.     if {[wrapObject "\\part{" "}•"]} then {
  308.         message "don't forget label"
  309.     } else {
  310.         message "type part name"
  311.     }
  312. }
  313. proc chapter {} {
  314.     if {[wrapObject "\\chapter{" "}•"]} then {
  315.         message "don't forget label"
  316.     } else {
  317.         message "type part name"
  318.     }
  319. }
  320. proc section {} {
  321.     if {[wrapObject "\\section{" "}•"]} then {
  322.         message "don't forget label"
  323.     } else {
  324.         message "type part name"
  325.     }
  326. }
  327. proc subsection {} {
  328.     if {[wrapObject "\\subsection{" "}•"]} then {
  329.         message "don't forget label"
  330.     } else {
  331.         message "type part name"
  332.     }
  333. }
  334. proc subsubsection {} {
  335.     if {[wrapObject "\\subsubsection{" "}•"]} then {
  336.         message "don't forget label"
  337.     } else {
  338.         message "type part name"
  339.     }
  340. }
  341. proc paragraph {} {
  342.     if {[wrapObject "\\paragraph{" "}•"]} then {
  343.         message "don't forget label"
  344.     } else {
  345.         message "type part name"
  346.     }
  347. }
  348. proc subparagraph {} {
  349.     if {[wrapObject "\\subparagraph{" "}•"]} then {
  350.         message "don't forget label"
  351.     } else {
  352.         message "type part name"
  353.     }
  354. }
  355.  
  356. # Definitions:
  357. proc myList {} {alertnote "Not yet implemented."}
  358. proc newcommand {} {alertnote "Not yet implemented."}
  359. proc newenvironment {} {alertnote "Not yet implemented."}
  360. proc newtheorem {} {alertnote "Not yet implemented."}
  361. proc renewcommand {} {alertnote "Not yet implemented."}
  362. proc renewenvironment {} {alertnote "Not yet implemented."}
  363.  
  364. # Text Style:
  365. proc roman {} {
  366.     if {[wrapObject "{\\rm " "}•"]} then {
  367.         message "roman text set"
  368.     } else {
  369.         message "enter roman text"
  370.     }
  371. }
  372. proc bold {} {
  373.     if {[wrapObject "{\\bf " "}•"]} then {
  374.         message "bold text set"
  375.     } else {
  376.         message "enter bold text"
  377.     }
  378. }
  379. proc italic {} {
  380.     if {[wrapObject "{\\it " "\\/}•"]} then {
  381.         insertText "•"
  382.         backwardChar
  383.         backwardChar
  384.     }
  385.     message "italic correction?"
  386. }
  387. proc emphatic {} {
  388.     if {[wrapObject "{\\em " "\\/}•"]} then {
  389.         insertText "•"
  390.         backwardChar
  391.         backwardChar
  392.     }
  393.     message "emphatic correction?"
  394. }
  395. proc slanted {} {
  396.     if {[wrapObject "{\\sl " "\\/}•"]} then {
  397.         insertText "•"
  398.         backwardChar
  399.         backwardChar
  400.     }
  401.     message "italic correction?"
  402. }
  403. proc sansSerif {} {
  404.     if {[wrapObject "{\\sf " "}•"]} then {
  405.         message "sans serif text set"
  406.     } else {
  407.         message "enter sans serif text"
  408.     }
  409. }
  410. proc smallCaps {} {
  411.     if {[wrapObject "{\\sc " "}•"]} then {
  412.         message "small caps text set"
  413.     } else {
  414.         message "enter small caps text"
  415.     }
  416. }
  417. proc typewriter {} {
  418.     if {[wrapObject "{\\tt " "}•"]} then {
  419.         message "typewriter text set"
  420.     } else {
  421.         message "enter typewriter text"
  422.     }
  423. }
  424.  
  425. # Text Size:
  426. proc tiny {} {
  427.     if {[wrapObject "{\\tiny " "}•"]} then {
  428.         message "tiny text set"
  429.     } else {
  430.         message "enter tiny text"
  431.     }
  432. }
  433. proc smallest {} {
  434.     if {[wrapObject "{\\scriptsize " "}•"]} then {
  435.         message "scriptsize text set"
  436.     } else {
  437.         message "enter scriptsize text"
  438.     }
  439. }
  440. proc smaller {} {
  441.     if {[wrapObject "{\\footnotesize " "}•"]} then {
  442.         message "footnotesize text set"
  443.     } else {
  444.         message "enter footnotesize text"
  445.     }
  446. }
  447. proc small {} {
  448.     if {[wrapObject "{\\small " "}•"]} then {
  449.         message "small text set"
  450.     } else {
  451.         message "enter small text"
  452.     }
  453. }
  454. proc normal {} {
  455.     if {[wrapObject "{\\normalsize " "}•"]} then {
  456.         message "normalsize text set"
  457.     } else {
  458.         message "enter normalsize text"
  459.     }
  460. }
  461. proc large {} {
  462.     if {[wrapObject "{\\large " "}•"]} then {
  463.         message "large text set"
  464.     } else {
  465.         message "enter large text"
  466.     }
  467. }
  468. proc larger {} {
  469.     if {[wrapObject "{\\Large " "}•"]} then {
  470.         message "Large text set"
  471.     } else {
  472.         message "enter Large text"
  473.     }
  474. }
  475. proc largest {} {
  476.     if {[wrapObject "{\\LARGE " "}•"]} then {
  477.         message "LARGE text set"
  478.     } else {
  479.         message "enter LARGE text"
  480.     }
  481. }
  482. proc huge {} {
  483.     if {[wrapObject "{\\huge " "}•"]} then {
  484.         message "huge text set"
  485.     } else {
  486.         message "enter huge text"
  487.     }
  488. }
  489. proc gigantic {} {
  490.     if {[wrapObject "{\\Huge " "}•"]} then {
  491.         message "Huge text set"
  492.     } else {
  493.         message "enter Huge text"
  494.     }
  495. }
  496.  
  497. # International:  not yet implemented.
  498.  
  499. # Environments:
  500. proc enumerate {} {
  501.     catch {prompt "enumerate:  how many items?" 3} numberItems
  502.     if {$numberItems != "cancel"} then {
  503.         set currentPos [getPos]
  504.         if {[insertEnvironment "enumerate" 0]} then {
  505.             item
  506.             insertText "  •"
  507.             for {set i 1} {$i < $numberItems} {incr i} {
  508.                 carriageReturn
  509.                 carriageReturn
  510.                 item
  511.                 insertText "  •"
  512.             }
  513.             goto $currentPos
  514.             nextTabStop
  515.             message "Type first item"
  516.         }
  517.     }
  518. }
  519. proc itemize {} {
  520.     catch {prompt "itemize:  how many items?" 3} numberItems
  521.     if {$numberItems != "cancel"} then {
  522.         set currentPos [getPos]
  523.         if {[insertEnvironment "itemize" 0]} then {
  524.             item
  525.             insertText "  •"
  526.             for {set i 1} {$i < $numberItems} {incr i} {
  527.                 carriageReturn
  528.                 carriageReturn
  529.                 item
  530.                 insertText "  •"
  531.             }
  532.             goto $currentPos
  533.             nextTabStop
  534.             message "Type first item"
  535.         }
  536.     }
  537. }
  538. proc description {} {
  539.     catch {prompt "description: how many items?" 3} numberItems
  540.     if {$numberItems != "cancel"} then {
  541.         set currentPos [getPos]
  542.         if {[insertEnvironment "description" 0]} then {
  543.             item
  544.             insertText "\[•\]  •"
  545.             for {set i 1} {$i < $numberItems} {incr i} {
  546.                 carriageReturn
  547.                 carriageReturn
  548.                 item
  549.                 insertText "\[•\]  •"
  550.             }
  551.             goto $currentPos
  552.             nextTabStop
  553.             message "Type first item"
  554.         }
  555.     }
  556. }
  557.  
  558. proc insertRow {jmax} {
  559.     insertText "•"
  560.     for {set j 1} {$j < $jmax} {incr j} {
  561.         insertText " & •"
  562.     }
  563. }
  564. proc tabular {} {
  565.     catch {prompt "tabular:  how many rows?" 3} numberRows
  566.     if {$numberRows != "cancel"} then {
  567.         catch {prompt "tabular:  how many columns?" 3} numberCols
  568.         if {$numberCols != "cancel"} then {
  569.             if {[insertEnvironment "tabular" 1]} then {
  570.                 set beginArgument [getPos]
  571.                 insertText "|"
  572.                 for {set j 1} {$j <= $numberCols} {incr j} {
  573.                     insertText "c|"
  574.                 }
  575.                 set endArgument [getPos]
  576.                 nextTabStop
  577.                 insertText "\\hline"
  578.                 for {set i 1} {$i <= $numberRows} {incr i} {
  579.                     carriageReturn
  580.                     insertRow $numberCols
  581.                     insertText "  \\\\"
  582.                     carriageReturn
  583.                     insertText "\\hline"
  584.                 }
  585.                 goto $beginArgument
  586.                 setMark
  587.                 goto $endArgument
  588.                 markHilite
  589.                 message "modify argument?"
  590.             }
  591.         }
  592.     }
  593. }
  594. proc tabbing {} {alertnote "Not yet implemented."}
  595.  
  596. proc figure {} {
  597.     global useBoxMacro
  598.     global boxMacroName
  599.     if {$useBoxMacro} then {
  600.         set currentPos [getPos]
  601.         if {[insertEnvironment "figure" 0]} then {
  602.             insertText "\\centerline{\\$boxMacroName{•}}"
  603.         } else {
  604.             return
  605.         }
  606.     } else {
  607.         if {[wrapEnvironment "figure" 0]} then {
  608.             forwardChar
  609.             backwardChar
  610.             set currentPos [getPos]
  611.         } else {
  612.             set currentPos [getPos]
  613.             insertText "•"
  614.         }
  615.     }
  616.     carriageReturn
  617.     insertText "\\caption{•}"
  618.     carriageReturn
  619.     insertText "\\protect\\label{•}"
  620.     goto $currentPos
  621.     nextTabStop
  622. }
  623. proc table {} {
  624.     if {[wrapEnvironment "table" 0]} then {
  625.         forwardChar
  626.         backwardChar
  627.         set currentPos [getPos]
  628.     } else {
  629.         set currentPos [getPos]
  630.         insertText "•"
  631.     }
  632.     carriageReturn
  633.     insertText "\\caption{•}"
  634.     carriageReturn
  635.     insertText "\\protect\\label{•}"
  636.     goto $currentPos
  637.     nextTabStop
  638. }
  639. proc slide {} {
  640.     wrapEnvironment "slide" 1
  641.     message "enter colors"
  642. }
  643.  
  644. proc verbatim {} {wrapEnvironment "verbatim" 0}
  645. proc quote {} {wrapEnvironment "quote" 0}
  646. proc quotation {} {wrapEnvironment "quotation" 0}
  647. proc verse {} {wrapEnvironment "verse" 0}
  648.  
  649. proc index {} {alertnote "Not yet implemented."}
  650. proc bibliography {} {
  651.     catch {prompt "bibliography:  how many bibitems?" 3} numberItems
  652.     if {$numberItems != "cancel"} then {
  653.         if {[insertEnvironment "thebibliography" 1]} then {
  654.             set beginArgument [getPos]
  655.             insertText "99"
  656.             set endArgument [getPos]
  657.             nextTabStop
  658.             insertText "\\bibitem{•}"
  659.             carriageReturn
  660.             insertText "•"
  661.             for {set i 1} {$i < $numberItems} {incr i} {
  662.                 carriageReturn
  663.                 carriageReturn
  664.                 insertText "\\bibitem{•}"
  665.                 carriageReturn
  666.                 insertText "•"
  667.             }
  668.             goto $beginArgument
  669.             setMark
  670.             goto $endArgument
  671.             markHilite
  672.             message "modify argument?"
  673.         }
  674.     }
  675. }
  676.  
  677. proc general {} {
  678.     catch {prompt "What environment?" "center"} environmentName
  679.     if {$environmentName != "cancel"} {wrapEnvironment $environmentName 0}
  680. }
  681.  
  682. # Boxes:
  683. proc mbox {} {
  684.     if {[wrapObject "\\mbox{" "}•"]} then {
  685.         message "mbox set"
  686.     } else {
  687.         message "enter text"
  688.     }
  689. }
  690. proc fbox {} {alertnote "Not yet implemented."}
  691. proc parbox {} {alertnote "Not yet implemented."}
  692.  
  693. # Misc:
  694. proc ellipsis {} {insertObject "\\ldots"}
  695. proc sectionMark {} {insertObject "\\S"}
  696. proc paragraphMark {} {insertObject "\\P"}
  697. proc dagger {} {insertObject "\\dag"}
  698. proc dblDagger {} {insertObject "\\ddag"}
  699. proc copyright {} {insertObject "\\copyright"}
  700. proc pounds {} {insertObject "\\pounds"}
  701. proc {en-dash} {} {insertObject "--"}
  702. proc {em-dash} {} {insertObject "---"}
  703. proc texLogo {} {insertObject "\\TeX"}
  704. proc latexLogo {} {insertObject "\\LaTeX"}
  705. proc today {} {insertObject "\\today"}
  706.  
  707. proc quotes {} {
  708.     if {[wrapObject "`" "'•"]} then {
  709.         message "text quoted"
  710.     } else {
  711.         message "enter text"
  712.     }
  713. }
  714. proc dblQuotes {} {
  715.     if {[wrapObject "``" "''•"]} then {
  716.         message "text double quoted"
  717.     } else {
  718.         message "enter text"
  719.     }
  720. }
  721. proc note {} {
  722.     if {[wrapObject "\\marginpar{" "}•"]} then {
  723.         message "marginal note set"
  724.     } else {
  725.         message "enter marginal note"
  726.     }
  727. }
  728. proc footnote {} {
  729.     if {[wrapObject "\\footnote{" "}•"]} then {
  730.         message "footnote set"
  731.     } else {
  732.         message "enter footnote"
  733.     }
  734. }
  735. proc label {} {
  736.     if {[wrapObject "\\label{" "}•"]} then {
  737.         message "label defined"
  738.     } else {
  739.         message "enter label"
  740.     }
  741. }
  742. proc crossRef {} { 
  743.     if {[wrapObject "\\ref{" "}•"]} then {
  744.         message "cross-reference made"
  745.     } else {
  746.         message "enter cross-reference"
  747.     }
  748. }
  749. proc pageRef {} { 
  750.     if {[wrapObject "\\pageref{" "}•"]} then {
  751.         message "page reference made"
  752.     } else {
  753.         message "enter page reference"
  754.     }
  755. }
  756. proc citation {} {
  757.     if {[wrapObject "\\cite{" "}•"]} then {
  758.         message "citation made"
  759.     } else {
  760.         message "enter citation"
  761.     }
  762. }
  763. proc item {} {insertObject "\\item"}
  764. proc bibitem {} {
  765.     if {[wrapObject "\\bibitem{" "}•"]} then {
  766.         message "bibitem set"
  767.     } else {
  768.         message "enter bibitem"
  769.     }
  770. }
  771.  
  772.  
  773. #############################################################################
  774. # 
  775. # Math Mode Macros.
  776. #
  777. #############################################################################
  778.  
  779. # Modes:
  780. proc texMath {} {
  781.     if {[wrapObject "$" "$•"]} then {
  782.         message "formula set"
  783.     } else {
  784.         message "enter formula"
  785.     }
  786. }
  787. proc texDisplaymath {} {
  788.     if {[wrapObject "$$" "$$•"]} then {
  789.         message "displayed formula set"
  790.     } else {
  791.         message "enter displayed formula"
  792.     }
  793. }
  794. proc latexMath {} {
  795.     if {[wrapObject "\\( " " \\)•"]} then {
  796.         message "formula set"
  797.     } else {
  798.         message "enter formula"
  799.     }
  800. }
  801. proc latexDisplaymath {} {
  802.     if {[wrapObject "\\\[ " " \\\]•"]} then {
  803.         message "displayed formula set"
  804.     } else {
  805.         message "enter displayed formula"
  806.     }
  807. }
  808.  
  809. # Environments:
  810. proc math {} {wrapEnvironment "math" 0}
  811. proc displaymath {} {wrapEnvironment "displaymath" 0}
  812. proc equation {} {
  813.     if {[wrapEnvironment "equation" 0]} then {
  814.         forwardChar
  815.         backwardChar
  816.         set currentPos [getPos]
  817.     } else {
  818.         set currentPos [getPos]
  819.         insertText "•"
  820.     }
  821.     carriageReturn
  822.     insertText "\\label{•}"
  823.     goto $currentPos
  824.     nextTabStop
  825. }
  826. proc myArray {} {
  827.     catch {prompt "array:  how many rows?" 3} numberRows
  828.     if {$numberRows != "cancel"} then {
  829.         catch {prompt "array:  how many columns?" 3} numberCols
  830.         if {$numberCols != "cancel"} then {
  831.             if {[insertEnvironment "array" 1]} then {
  832.                 set beginArgument [getPos]
  833.                 for {set j 1} {$j <= $numberCols} {incr j} {
  834.                     insertText "c"
  835.                 }
  836.                 set endArgument [getPos]
  837.                 nextTabStop
  838.                 for {set i 1} {$i < $numberRows} {incr i} {
  839.                     insertRow $numberCols
  840.                     insertText "  \\\\"
  841.                     carriageReturn
  842.                 }
  843.                 insertRow $numberCols
  844.                 goto $beginArgument
  845.                 setMark
  846.                 goto $endArgument
  847.                 markHilite
  848.                 message "modify argument?"
  849.             }
  850.         }
  851.     }
  852. }
  853. proc eqnarray {} {
  854.     catch {prompt "eqnarray:  how many rows?" 3} numberRows
  855.     if {$numberRows != "cancel"} then {
  856.         set currentPos [getPos]
  857.         if {[insertEnvironment "eqnarray" 0]} then {
  858.             for {set i 1} {$i < $numberRows} {incr i} {
  859.                 insertRow 3
  860.                 carriageReturn
  861.                 insertText "\\label{•} \\\\"
  862.                 carriageReturn
  863.             }
  864.             insertRow 3
  865.             carriageReturn
  866.             insertText "\\label{•}"
  867.             goto $currentPos
  868.             nextTabStop
  869.         }
  870.     }
  871. }
  872. proc eqnarrayStar {} {
  873.     catch {prompt "eqnarray*:  how many rows?" 3} numberRows
  874.     if {$numberRows != "cancel"} then {
  875.         set currentPos [getPos]
  876.         if {[insertEnvironment "eqnarray*" 0]} then {
  877.             for {set i 1} {$i < $numberRows} {incr i} {
  878.                 insertRow 3
  879.                 insertText "  \\\\"
  880.                 carriageReturn
  881.             }
  882.             insertRow 3
  883.             goto $currentPos
  884.             nextTabStop
  885.         }
  886.     }
  887. }
  888.  
  889. # Formulas:
  890. proc subscript {} {
  891.     if {[wrapObject "_{" "}•"]} then {
  892.         message "subscript set"
  893.     } else {
  894.         message "enter subscript"
  895.     }
  896. }
  897. proc superscript {} {
  898.     if {[wrapObject "^{" "}•"]} then {
  899.         message "superscript set"
  900.     } else {
  901.         message "enter superscript"
  902.     }
  903. }
  904. proc fraction {} {
  905.     set currentPos [getPos]
  906.     if {[isSelection]} then {
  907.         set selection [getSelect]
  908.         set args [split $selection /]
  909.         set len [llength $args]
  910.         deleteText $currentPos [selEnd]
  911.         if {$len == 1} then {
  912.             # maybe the selection should be deleted in this case?
  913.             insertText "\\frac{" $selection "}{•}•"
  914.             goto $currentPos
  915.             nextTabStop
  916.             message "enter denominator"
  917.         } else {
  918.             set firstArg [lindex $args 0]
  919.             set restArgs [lrange $args 1 [expr $len-1]]
  920.             insertText "\\frac{" $firstArg "}{" [join $restArgs /] "}"
  921.             if {$len > 2} {message "beware of multiple /"}
  922.         }
  923.     } else {
  924.         insertText "\\frac{•}{•}•"
  925.         goto $currentPos
  926.         nextTabStop
  927.         message "enter numerator"
  928.     }
  929. }
  930. proc squareRoot {} {
  931.     if {[wrapObject "\\sqrt{" "}•"]} then {
  932.         message "square root set"
  933.     } else {
  934.         message "enter formula"
  935.     }
  936. }
  937. proc nthRoot {} {
  938.     if {[wrapObject "\\sqrt\[•\]{" "}•"]} then {
  939.         message "enter root"
  940.     } else {
  941.         message "enter root, then formula"
  942.     }
  943. }
  944. proc oneParameter {} {
  945.     catch {prompt "Command name?" "sqrt"} commandName
  946.     if {$commandName != "cancel"} {wrapObject "\\$commandName{" "}•"}
  947. }
  948. proc twoParameters {} {
  949.     catch {prompt "Command name?" "frac"} commandName
  950.     if {$commandName != "cancel"} then {
  951.         set currentPos [getPos]
  952.         if {[insertObject "\\$commandName{•}{•}•"]} then {
  953.             goto $currentPos
  954.             nextTabStop
  955.         }
  956.     }
  957. }
  958.  
  959. # Greek:
  960. proc alpha {} {insertObject "\\alpha"}
  961. proc beta {} {insertObject "\\beta"}
  962. proc gamma {} {insertObject "\\gamma"}
  963. proc delta {} {insertObject "\\delta"}
  964. proc epsilon {} {insertObject "\\epsilon"}
  965. proc zeta {} {insertObject "\\zeta"}
  966. proc eta {} {insertObject "\\eta"}
  967. proc theta {} {insertObject "\\theta"}
  968. proc iota {} {insertObject "\\iota"}
  969. proc kappa {} {insertObject "\\kappa"}
  970. proc lambda {} {insertObject "\\lambda"}
  971. proc mu {} {insertObject "\\mu"}
  972. proc nu {} {insertObject "\\nu"}
  973. proc xi {} {insertObject "\\xi"}
  974. proc pi {} {insertObject "\\pi"}
  975. proc rho {} {insertObject "\\rho"}
  976. proc sigma {} {insertObject "\\sigma"}
  977. proc tau {} {insertObject "\\tau"}
  978. proc upsilon {} {insertObject "\\upsilon"}
  979. proc phi {} {insertObject "\\phi"}
  980. proc chi {} {insertObject "\\chi"}
  981. proc psi {} {insertObject "\\psi"}
  982. proc omega {} {insertObject "\\omega"}
  983.  
  984. proc capGamma {} {insertObject "\\Gamma"}
  985. proc capDelta {} {insertObject "\\Delta"}
  986. proc capTheta {} {insertObject "\\Theta"}
  987. proc capLambda {} {insertObject "\\Lambda"}
  988. proc capXi {} {insertObject "\\Xi"}
  989. proc capPi {} {insertObject "\\Pi"}
  990. proc capSigma {} {insertObject "\\Sigma"}
  991. proc capUpsilon {} {insertObject "\\Upsilon"}
  992. proc capPhi {} {insertObject "\\Phi"}
  993. proc capPsi {} {insertObject "\\Psi"}
  994. proc capOmega {} {insertObject "\\Omega"}
  995.  
  996. proc varEpsilon {} {insertObject "\\varepsilon"}
  997. proc varTheta {} {insertObject "\\vartheta"}
  998. proc varPi {} {insertObject "\\varpi"}
  999. proc varRho {} {insertObject "\\varrho"}
  1000. proc varSigma {} {insertObject "\\varsigma"}
  1001. proc varPhi {} {insertObject "\\varphi"}
  1002.  
  1003. # Binary Ops:
  1004. proc plusOrMinus {} {insertObject "\\pm"}
  1005. proc minusOrPlus {} {insertObject "\\mp"}
  1006. proc multiply {} {insertObject "\\times"}
  1007. proc divide {} {insertObject "\\div"}
  1008. proc asterisk {} {insertObject "\\ast"}
  1009. proc star {} {insertObject "\\star"}
  1010. proc circle {} {insertObject "\\circ"}
  1011. proc bigCircle {} {insertObject "\\bigcirc"}
  1012. proc bullet {} {insertObject "\\bullet"}
  1013. proc centerDot {} {insertObject "\\cdot"}
  1014. proc intersection {} {insertObject "\\cap"}
  1015. proc union {} {insertObject "\\cup"}
  1016. proc logicalAnd {} {insertObject "\\wedge"}
  1017. proc logicalOr {} {insertObject "\\vee"}
  1018. proc setMinus {} {insertObject "\\setminus"}
  1019.  
  1020. # Relations:
  1021. proc notEqual {} {insertObject "\\neq"}
  1022. proc lessOrEqual {} {insertObject "\\leq"}
  1023. proc greaterOrEqual {} {insertObject "\\geq"}
  1024. proc subset {} {insertObject "\\subset"}
  1025. proc superset {} {insertObject "\\supset"}
  1026. proc subsetOrEqual {} {insertObject "\\subseteq"}
  1027. proc supersetOrEqual {} {insertObject "\\supseteq"}
  1028. proc elementOf {} {insertObject "\\in"}
  1029. proc equivalent {} {insertObject "\\equiv"}
  1030. proc similar {} {insertObject "\\sim"}
  1031. proc similarEqual {} {insertObject "\\simeq"}
  1032. proc dotEqual {} {insertObject "\\doteq"}
  1033. proc approximate {} {insertObject "\\approx"}
  1034. proc congruent {} {insertObject "\\cong"}
  1035.  
  1036. # Large Ops:
  1037. proc insertLargeOp {commandName} {
  1038.     set currentPos [getPos]
  1039.     insertText "\\$commandName"
  1040.     insertText "_{•}^{•}•"
  1041.     goto $currentPos
  1042.     nextTabStop
  1043. }
  1044. proc sum {} {insertLargeOp "sum"}
  1045. proc product {} {insertLargeOp "prod"}
  1046. proc integral {} {insertLargeOp "int"}
  1047. proc bigUnion {} {insertLargeOp "bigcup"}
  1048. proc bigIntersection {} {insertLargeOp "bigcap"}
  1049. proc bigAnd {} {insertLargeOp "bigwedge"}
  1050. proc bigOr {} {insertLargeOp "bigvee"}
  1051.  
  1052. # Arrows:
  1053. proc mapsTo {} {insertObject "\\mapsto"}
  1054. proc leftArrow {} {insertObject "\\leftarrow"}
  1055. proc rightArrow {} {insertObject "\\rightarrow"}
  1056. proc {left-rightArrow} {} {insertObject "\\leftrightarrow"}
  1057. proc dblLeftArrow {} {insertObject "\\Leftarrow"}
  1058. proc dblRightArrow {} {insertObject "\\Rightarrow"}
  1059. proc {dblLeft-rightArrow} {} {insertObject "\\Leftrightarrow"}
  1060.  
  1061. # Dots:
  1062. proc centerDots {} {insertObject "\\cdots"}
  1063. proc verticalDots {} {insertObject "\\vdots"}
  1064. proc diagonalDots {} {insertObject "\\ddots"}
  1065.  
  1066. # Symbols:
  1067. proc aleph {} {insertObject "\\aleph"}
  1068. proc emptySet {} {insertObject "\\emptyset"}
  1069. proc negation {} {insertObject "\\neg"}
  1070. proc forAll {} {insertObject "\\forall"}
  1071. proc exists {} {insertObject "\\exists"}
  1072. proc scriptL {} {insertObject "\\ell"}
  1073. proc nabla {} {insertObject "\\nabla"}
  1074. proc partial {} {insertObject "\\partial"}
  1075. proc infinity {} {insertObject "\\infty"}
  1076. proc backslash {} {insertObject "\\backslash"}
  1077. proc angle {} {insertObject "\\angle"}
  1078. proc box {} {insertObject "\\Box"}
  1079. proc diamond {} {insertObject "\\Diamond"}
  1080. proc triangle {} {insertObject "\\triangle"}
  1081.  
  1082. # Functions:  not yet implemented.
  1083.  
  1084. # Delimiters:
  1085. proc parentheses {} {
  1086.     if {[wrapObject "(" ")•"]} then {
  1087.         message "formula delimited"
  1088.     } else {
  1089.         message "enter formula"
  1090.     }
  1091. }
  1092. proc brackets {} {
  1093.     if {[wrapObject "\[" "\]•"]} then {
  1094.         message "formula delimited"
  1095.     } else {
  1096.         message "enter formula"
  1097.     }
  1098. }
  1099. proc braces {} {
  1100.     if {[wrapObject "\\\{" "\\\}•"]} then {
  1101.         message "formula delimited"
  1102.     } else {
  1103.         message "enter formula"
  1104.     }
  1105. }
  1106. proc absoluteValue {} {
  1107.     if {[wrapObject "|" "|•"]} then {
  1108.         message "formula delimited"
  1109.     } else {
  1110.         message "enter formula"
  1111.     }
  1112. }
  1113. proc otherDelims {} {
  1114.     catch {prompt "Choose delimiters:" "parentheses" "" "parentheses" "brackets" "braces" "angle brackets" "vertical bars" "double bars" "ceiling" "floor"} delimType
  1115.     if {$delimType != "cancel"} then {
  1116.         case $delimType in {
  1117.             "parentheses" {
  1118.                 set leftDelim "("
  1119.                 set rightDelim ")"
  1120.             }
  1121.             "brackets" {
  1122.                 set leftDelim "\["
  1123.                 set rightDelim "\]"
  1124.             }
  1125.             "braces" {
  1126.                 set leftDelim "\\\{"
  1127.                 set rightDelim "\\\}"
  1128.             }
  1129.             "{angle brackets}" {
  1130.                 set leftDelim "\\langle"
  1131.                 set rightDelim "\\rangle"
  1132.             }
  1133.             "{vertical bars}" {
  1134.                 set leftDelim "|"
  1135.                 set rightDelim "|"
  1136.             }
  1137.             "{double bars}" {
  1138.                 set leftDelim "\\|"
  1139.                 set rightDelim "\\|"
  1140.             }
  1141.             "ceiling" {
  1142.                 set leftDelim "\\lceil"
  1143.                 set rightDelim "\\rceil"
  1144.             }
  1145.             "floor" {
  1146.                 set leftDelim "\\lfloor"
  1147.                 set rightDelim "\\rfloor"
  1148.             }
  1149.             default {
  1150.                 alertnote "\"$delimType\" not recognized"
  1151.                 return
  1152.             }
  1153.         }
  1154.         if {[wrapObject "$leftDelim" "$rightDelim•"]} then {
  1155.             message "formula delimited"
  1156.         } else {
  1157.             message "enter formula"
  1158.         }
  1159.     }
  1160. }
  1161.  
  1162. proc {half-openInterval} {} {
  1163.     if {[wrapObject "(" "\]•"]} then {
  1164.         message "formula delimited"
  1165.     } else {
  1166.         message "enter formula"
  1167.     }
  1168. }
  1169. proc {half-closedInterval} {} {
  1170.     if {[wrapObject "\[" ")•"]} then {
  1171.         message "formula delimited"
  1172.     } else {
  1173.         message "enter formula"
  1174.     }
  1175. }
  1176.  
  1177. proc bigParentheses {} {
  1178.     if {[wrapObject "\\left(" "\\right)•"]} then {
  1179.         message "formula delimited"
  1180.     } else {
  1181.         message "enter formula"
  1182.     }
  1183. }
  1184. proc bigBrackets {} {
  1185.     if {[wrapObject "\\left\[" "\\right\]•"]} then {
  1186.         message "formula delimited"
  1187.     } else {
  1188.         message "enter formula"
  1189.     }
  1190. }
  1191. proc bigBraces {} {
  1192.     if {[wrapObject "\\left\\\{" "\\right\\\}•"]} then {
  1193.         message "formula delimited"
  1194.     } else {
  1195.         message "enter formula"
  1196.     }
  1197. }
  1198. proc bigAbsoluteValue {} {
  1199.     if {[wrapObject "\\left|" "\\right|•"]} then {
  1200.         message "formula delimited"
  1201.     } else {
  1202.         message "enter formula"
  1203.     }
  1204. }
  1205. proc otherBigDelims {} {
  1206.     catch {prompt "Choose delimiters:" "parentheses" "" "parentheses" "brackets" \
  1207.                 "braces" "angle brackets" "vertical bars" "double bars" \
  1208.                 "ceiling" "floor"} delimType
  1209.     if {$delimType != "cancel"} then {
  1210.         case $delimType in {
  1211.             "parentheses" {
  1212.                 set leftDelim "("
  1213.                 set rightDelim ")"
  1214.             }
  1215.             "brackets" {
  1216.                 set leftDelim "\["
  1217.                 set rightDelim "\]"
  1218.             }
  1219.             "braces" {
  1220.                 set leftDelim "\\\{"
  1221.                 set rightDelim "\\\}"
  1222.             }
  1223.             "{angle brackets}" {
  1224.                 set leftDelim "\\langle"
  1225.                 set rightDelim "\\rangle"
  1226.             }
  1227.             "{vertical bars}" {
  1228.                 set leftDelim "|"
  1229.                 set rightDelim "|"
  1230.             }
  1231.             "{double bars}" {
  1232.                 set leftDelim "\\|"
  1233.                 set rightDelim "\\|"
  1234.             }
  1235.             "ceiling" {
  1236.                 set leftDelim "\\lceil"
  1237.                 set rightDelim "\\rceil"
  1238.             }
  1239.             "floor" {
  1240.                 set leftDelim "\\lfloor"
  1241.                 set rightDelim "\\rfloor"
  1242.             }
  1243.             default {
  1244.                 alertnote "\"$delimType\" not recognized"
  1245.                 return
  1246.             }
  1247.         }
  1248.         if {[wrapObject "\\left$leftDelim" "\\right$rightDelim•"]} then {
  1249.             message "formula delimited"
  1250.         } else {
  1251.             message "enter formula"
  1252.         }
  1253.     }
  1254. }
  1255.  
  1256. proc bigLeftBrace {} {
  1257.     if {[wrapObject "\\left\\\{" "\\right.•"]} then {
  1258.         message "formula delimited"
  1259.     } else {
  1260.         message "enter formula"
  1261.     }
  1262. }
  1263. proc otherMixedBigDelims {} {
  1264.     catch {prompt "Choose left delimiter:" "parenthesis" "" "parenthesis" "bracket" \
  1265.              "brace" "angle bracket" "vertical bar" "double bar" "ceiling" "floor"  \
  1266.              "slash" "backslash" "none"} delimType
  1267.     if {$delimType != "cancel"} then {
  1268.         case $delimType in {
  1269.             "parenthesis" {set leftDelim "("}
  1270.             "bracket" {set leftDelim "\["}
  1271.             "brace" {set leftDelim "\\\{"}
  1272.             "{angle bracket}" {set leftDelim "\\langle"}
  1273.             "{vertical bar}" {set leftDelim "|"}
  1274.             "{double bar}" {set leftDelim "\\|"}
  1275.             "ceiling" {set leftDelim "\\lceil"}
  1276.             "floor" {set leftDelim "\\lfloor"}
  1277.             "slash" {set leftDelim "/"}
  1278.             "backslash" {set leftDelim "\\backslash"}
  1279.             "none" {set leftDelim "."}
  1280.             default {
  1281.                 alertnote "\"$delimType\" not recognized"
  1282.                 return
  1283.             }
  1284.         }
  1285.         catch {prompt "Choose right delimiter:" "parenthesis" "" "parenthesis" "bracket" \
  1286.                 "brace" "angle bracket" "vertical bar" "double bar" "ceiling" "floor" \
  1287.                 "slash" "backslash" "none"} delimType
  1288.         if {$delimType != "cancel"} then {
  1289.             case $delimType in {
  1290.                 "parenthesis" {set rightDelim ")"}
  1291.                 "bracket" {set rightDelim "\]"}
  1292.                 "brace" {set rightDelim "\\\}"}
  1293.                 "{angle bracket}" {set rightDelim "\\rangle"}
  1294.                 "{vertical bar}" {set rightDelim "|"}
  1295.                 "{double bar}" {set rightDelim "\\|"}
  1296.                 "ceiling" {set rightDelim "\\rceil"}
  1297.                 "floor" {set rightDelim "\\rfloor"}
  1298.                 "slash" {set rightDelim "/"}
  1299.                 "backslash" {set rightDelim "\\backslash"}
  1300.                 "none" {set rightDelim "."}
  1301.                 default {
  1302.                     alertnote "\"$delimType\" not recognized"
  1303.                     return
  1304.                 }
  1305.             }
  1306.             if {[wrapObject "\\left$leftDelim" "\\right$rightDelim•"]} then {
  1307.                 message "formula delimited"
  1308.             } else {
  1309.                 message "enter formula"
  1310.             }
  1311.         }
  1312.     }
  1313. }
  1314.  
  1315. # Accents:
  1316. proc hat {} {
  1317.     if {[isSelection] > 1} then {
  1318.         beep
  1319.         alertnote "Warning: only a single character may be accented!"
  1320.     }
  1321.     if {[wrapObject "\\hat{" "}•"]} then {
  1322.         message "accent set"
  1323.     } else {
  1324.         message "enter one character"
  1325.     }
  1326. }
  1327. proc check {} {
  1328.     if {[isSelection] > 1} then {
  1329.         beep
  1330.         alertnote "Warning: only a single character may be accented!"
  1331.     }
  1332.     if {[wrapObject "\\check{" "}•"]} then {
  1333.         message "accent set"
  1334.     } else {
  1335.         message "enter one character"
  1336.     }
  1337. }
  1338. proc breve {} {
  1339.     if {[isSelection] > 1} then {
  1340.         beep
  1341.         alertnote "Warning: only a single character may be accented!"
  1342.     }
  1343.     if {[wrapObject "\\breve{" "}•"]} then {
  1344.         message "accent set"
  1345.     } else {
  1346.         message "enter one character"
  1347.     }
  1348. }
  1349. proc acuteAccent {} {
  1350.     if {[isSelection] > 1} then {
  1351.         beep
  1352.         alertnote "Warning: only a single character may be accented!"
  1353.     }
  1354.     if {[wrapObject "\\acute{" "}•"]} then {
  1355.         message "accent set"
  1356.     } else {
  1357.         message "enter one character"
  1358.     }
  1359. }
  1360. proc graveAccent {} {
  1361.     if {[isSelection] > 1} then {
  1362.         beep
  1363.         alertnote "Warning: only a single character may be accented!"
  1364.     }
  1365.     if {[wrapObject "\\grave{" "}•"]} then {
  1366.         message "accent set"
  1367.     } else {
  1368.         message "enter one character"
  1369.     }
  1370. }
  1371. proc tilde {} {
  1372.     if {[isSelection] > 1} then {
  1373.         beep
  1374.         alertnote "Warning: only a single character may be accented!"
  1375.     }
  1376.     if {[wrapObject "\\tilde{" "}•"]} then {
  1377.         message "accent set"
  1378.     } else {
  1379.         message "enter one character"
  1380.     }
  1381. }
  1382. proc bar {} {
  1383.     if {[isSelection] > 1} then {
  1384.         beep
  1385.         alertnote "Warning: only a single character may be accented!"
  1386.     }
  1387.     if {[wrapObject "\\bar{" "}•"]} then {
  1388.         message "accent set"
  1389.     } else {
  1390.         message "enter one character"
  1391.     }
  1392. }
  1393. proc vector {} {
  1394.     if {[isSelection] > 1} then {
  1395.         beep
  1396.         alertnote "Warning: only a single character may be accented!"
  1397.     }
  1398.     if {[wrapObject "\\vec{" "}•"]} then {
  1399.         message "accent set"
  1400.     } else {
  1401.         message "enter one character"
  1402.     }
  1403. }
  1404. proc dot {} {
  1405.     if {[isSelection] > 1} then {
  1406.         beep
  1407.         alertnote "Warning: only a single character may be accented!"
  1408.     }
  1409.     if {[wrapObject "\\dot{" "}•"]} then {
  1410.         message "accent set"
  1411.     } else {
  1412.         message "enter one character"
  1413.     }
  1414. }
  1415. proc dblDot {} {
  1416.     if {[isSelection] > 1} then {
  1417.         beep
  1418.         alertnote "Warning: only a single character may be accented!"
  1419.     }
  1420.     if {[wrapObject "\\ddot{" "}•"]} then {
  1421.         message "accent set"
  1422.     } else {
  1423.         message "enter one character"
  1424.     }
  1425. }
  1426.  
  1427. proc wideHat {} {
  1428.     if {[isSelection] > 3} then {
  1429.         beep
  1430.         alertnote "Warning: only a few characters may be accented!"
  1431.     }
  1432.     if {[wrapObject "\\widehat{" "}•"]} then {
  1433.         message "accent set"
  1434.     } else {
  1435.         message "enter a few characters"
  1436.     }
  1437. }
  1438. proc wideTilde {} {
  1439.     if {[isSelection] > 3} then {
  1440.         beep
  1441.         alertnote "Warning: only a few characters may be accented!"
  1442.     }
  1443.     if {[wrapObject "\\widetilde{" "}•"]} then {
  1444.         message "accent set"
  1445.     } else {
  1446.         message "enter a few characters"
  1447.     }
  1448. }
  1449.  
  1450. proc dotlessI {} {insertObject "\\imath"}
  1451. proc dotlessJ {} {insertObject "\\jmath"}
  1452.  
  1453. # Grouping:
  1454. proc underline {} {
  1455.     if {[wrapObject "\\underline{" "}•"]} then {
  1456.         message "selection underlined"
  1457.     } else {
  1458.         message "enter text"
  1459.     }
  1460. }
  1461. proc overline {} {
  1462.     if {[wrapObject "\\overline{" "}•"]} then {
  1463.         message "selection overlined"
  1464.     } else {
  1465.         message "enter text"
  1466.     }
  1467. }
  1468. proc underbrace {} {
  1469.     if {[wrapObject "\\underbrace{" "}•"]} then {
  1470.         message "selection underbraced"
  1471.     } else {
  1472.         message "enter text"
  1473.     }
  1474. }
  1475. proc overbrace {} {
  1476.     if {[wrapObject "\\overbrace{" "}•"]} then {
  1477.         message "selection overbraced"
  1478.     } else {
  1479.         message "enter text"
  1480.     }
  1481. }
  1482. proc stack {} {
  1483.     set currentPos [getPos]
  1484.     if {[insertObject "\\stackrel{•}{•}•"]} then {
  1485.         goto $currentPos
  1486.         nextTabStop
  1487.         message "1st arg scriptstyle"
  1488.     }
  1489. }
  1490.  
  1491. # Spacing:
  1492. proc thin {} {insertObject "\\,"}
  1493. proc negThin {} {insertObject "\\!"}
  1494. proc medium {} {insertObject "\\:"}
  1495. proc thick {} {insertObject "\\;"}
  1496. proc quad {} {insertObject "\\quad"}
  1497. proc dblQuad {} {insertObject "\\qquad"}
  1498.  
  1499. # Math Style:
  1500. proc mathItalic {} {
  1501.     if {[wrapObject "{\\mit " "}•"]} then {
  1502.         message "math italics set"
  1503.     } else {
  1504.         message "enter italicized text"
  1505.     }
  1506. }
  1507. proc calligraphic {} {
  1508.     # Check for upper-case arguments only:
  1509.     if {[wrapObject "{\\cal " "}•"]} then {
  1510.         message "calligraphics set"
  1511.     } else {
  1512.         message "enter text"
  1513.     }
  1514. }
  1515. proc fraktur {} {
  1516.     alertnote "Not yet implemented."
  1517. }
  1518. proc script {} {
  1519.     alertnote "Not yet implemented."
  1520. }
  1521. proc blackboardBold {} {
  1522.     alertnote "Not yet implemented."
  1523. }
  1524. proc displayStyle {} {
  1525.     if {[wrapObject "{\\displaystyle " "}•"]} then {
  1526.         message "displaystyle set"
  1527.     } else {
  1528.         message "enter displaystyle text"
  1529.     }
  1530. }
  1531. proc textStyle {} {
  1532.     if {[wrapObject "{\\textstyle " "}•"]} then {
  1533.         message "textstyle set"
  1534.     } else {
  1535.         message "enter textstyle text"
  1536.     }
  1537. }
  1538. proc scriptStyle {} {
  1539.     if {[wrapObject "{\\scriptstyle " "}•"]} then {
  1540.         message "scriptstyle set"
  1541.     } else {
  1542.         message "enter scriptstyle text"
  1543.     }
  1544. }
  1545. proc scriptscriptStyle {} {
  1546.     if {[wrapObject "{\\scriptscriptstyle " "}•"]} then {
  1547.         message "scriptscriptstyle set"
  1548.     } else {
  1549.         message "enter scriptscriptstyle text"
  1550.     }
  1551. }
  1552.  
  1553.  
  1554. #############################################################################
  1555. #
  1556. # LaTeX Menu Definition.
  1557. #
  1558. #############################################################################
  1559.  
  1560. proc interpretMenuItem {menu item} {
  1561.     switch $item {
  1562.         "list" {set func "myList"}
  1563.         "array" {set func "myArray"}
  1564.         "eqnarray\*" {set func "eqnarrayStar"}
  1565.         default {set func $item}
  1566.     }
  1567.     eval $func
  1568. }
  1569.  
  1570. # LaTeX mode
  1571. proc setTexMode {} {
  1572.     global texMenu
  1573.     changeMode "TeX"
  1574.     uplevel #0 {    
  1575.         set wordBreakPreface {[^a-zA-Z0-9]}
  1576.         set wordBreak {[a-zA-Z0-9]+}
  1577.         set elecLBrace 0
  1578.         set elecRBrace 0
  1579.         set electricSemi 0
  1580.         set wordWrap 1
  1581.         set prefixString "% "
  1582.         set suffixString { \\\\}
  1583.         set sortedIsDefault 0
  1584.         set funcExpr {^\\(sub)*section\*?{([^{}]*)}}
  1585. #        set funcExpr {^\\(sub)*section\*?{(.*)}$}
  1586.         set funcPar 2
  1587.         set savedIsMeta $optionIsMeta
  1588. #    Uncomment next line to use option key in Tex bindings.
  1589. #        set optionIsMeta 0
  1590. #    Next is a call to a random proc in the latex file to make sure
  1591. #    is it auto-loaded.
  1592.         isSelection
  1593.     }
  1594. }
  1595.  
  1596. #================================================================================
  1597. proc latex {} {
  1598.     global latexPath
  1599.     set sig ""
  1600.     catch {string trim [lindex [getfinfo $latexPath] 1] '} sig
  1601.     set name [checkRunning latex $sig latexPath]
  1602.     if {![string length $name]} return
  1603.     switchTo $name
  1604. }
  1605.  
  1606. proc commentLine {} {
  1607.     beginningOfLine
  1608.     insertText "% "
  1609.     nextLine
  1610.     beginningOfLine
  1611. }
  1612.  
  1613.  
  1614. proc texMarkFile {} {
  1615.     global mpos
  1616.     
  1617.     set end [maxPos]
  1618.     set pos 0
  1619.     set l {}
  1620.  
  1621.     # Remove all previous marks in this file
  1622.     if {[string length [search -f 1 -r 0 -n  {\chapter} 0]]} {
  1623.         set expr {^\\(chapter|section)}
  1624.     } else {
  1625.         set expr {^\\(sub)?section}
  1626.     }
  1627.  
  1628.     while {![catch {search -f 1 -r 1 -m 0 -i 0 $expr $pos} res]} {
  1629.         set start [lindex $res 0]
  1630.         set end [nextLineStart $start]
  1631.         set text [getText $start $end]
  1632.         if {[regexp {\{(.*)\}} $text dummy mtch]} {
  1633.             set lab ""
  1634.             if {[regexp {(sub)*section} $text title]} {
  1635.                 set lab "   "
  1636.                 set title [string range $title 0 [expr [string length $title] - 7]]
  1637.                 append lab [string range "               " 0 [string length $title]]
  1638.             }
  1639.             append lab $mtch
  1640.             setNamedMark $lab [lineStart [expr $start - 1]] $start $start
  1641.         }
  1642.         set pos $end
  1643.     }
  1644. }
  1645.     
  1646. # Open file in same directory, expect name w/o extension selected.
  1647. proc openInputFile {} {
  1648.     set text [getSelect].tex
  1649.     if {[string length $text] < 5} { beep; return }
  1650.     foreach f [winNames] {
  1651.         if {$f == $text} {
  1652.             bringToFront $f
  1653.             return
  1654.         }
  1655.     }
  1656.     edit [file dirname [lindex [winNames -f] 0]]:$text
  1657. }
  1658.  
  1659.  
  1660. menu -n $texMenu  {
  1661.     "/-latex"
  1662.     "openInputFile"
  1663.     "(-"
  1664.     {menu -n Documents -p interpretMenuItem {
  1665.         "letter"
  1666.         "article"
  1667.         "report"
  1668.         "book"
  1669.         "(-"
  1670.         "custom…"}
  1671.     }
  1672.     
  1673.     {menu -n Sectioning -p interpretMenuItem {
  1674.         "part"
  1675.         "chapter"
  1676.         "section"
  1677.         "subsection"
  1678.         "subsubsection"
  1679.         "paragraph"
  1680.         "subparagraph"}
  1681.     }
  1682.     
  1683.     {menu -n (Definitions -p interpretMenuItem {
  1684.         "list…"
  1685.         "(-"
  1686.         "newcommand…"
  1687.         "newenvironment…"
  1688.         "newtheorem…"
  1689.         "(-"
  1690.         "renewcommand…"
  1691.         "renewenvironment…"}
  1692.     }
  1693.     
  1694.     "(-"
  1695.     
  1696.     {menu -n TextStyle -p interpretMenuItem {
  1697.         "roman"
  1698.         "bold"
  1699.         "italic"
  1700.         "emphatic"
  1701.         "slanted"
  1702.         "sansSerif"
  1703.         "smallCaps"
  1704.         "typewriter"}
  1705.     }
  1706.     
  1707.     {menu -n TextSize -p interpretMenuItem {
  1708.         "tiny"
  1709.         "smallest"
  1710.         "smaller"
  1711.         "small"
  1712.         "normal"
  1713.         "large"
  1714.         "larger"
  1715.         "largest"
  1716.         "huge"
  1717.         "gigantic"}
  1718.     }
  1719.     
  1720.     {menu -n (International -p interpretMenuItem {
  1721.         }
  1722.     }
  1723.     
  1724.     {menu -n Environments -p interpretMenuItem {
  1725.         "enumerate…"
  1726.         "itemize…"
  1727.         "description…"
  1728.         "(-"
  1729.         "tabular…"
  1730.         "(tabbing"
  1731.         "(-"
  1732.         "figure"
  1733.         "table"
  1734.         "slide"
  1735.         "(-"
  1736.         "verbatim"
  1737.         "quote"
  1738.         "quotation"
  1739.         "verse"
  1740.         "(-"
  1741.         "(index…"
  1742.         "bibliography…"
  1743.         "(-"
  1744.         "general…"}
  1745.     }
  1746.     
  1747.     {menu -n Boxes -p interpretMenuItem {
  1748.         "mbox"
  1749.         "(fbox"
  1750.         "(parbox"}
  1751.     }
  1752.     
  1753.     {menu -n Miscellaneous -p interpretMenuItem {
  1754.         "ellipsis"
  1755.         "sectionMark"
  1756.         "paragraphMark"
  1757.         "dagger"
  1758.         "dblDagger"
  1759.         "en-dash"
  1760.         "em-dash"
  1761.         "texLogo"
  1762.         "latexLogo"
  1763.         "copyright"
  1764.         "pounds"
  1765.         "today"
  1766.         "(-"
  1767.         "quotes"
  1768.         "dblQuotes"
  1769.         "(-"
  1770.         "note"
  1771.         "footnote"
  1772.         "(-"
  1773.         "label"
  1774.         "crossRef"
  1775.         "pageRef"
  1776.         "citation"
  1777.         "(-"
  1778.         "item"
  1779.         "bibitem"
  1780.         }
  1781.     }
  1782.     
  1783.     "(-"
  1784.     
  1785.     {menu -n mathModes -p interpretMenuItem {
  1786.         "texMath"
  1787.         "texDisplaymath"
  1788.         "(-"
  1789.         "latexMath"
  1790.         "latexDisplaymath"}
  1791.     }
  1792.     
  1793.     {menu -n mathEnvironments -p interpretMenuItem {
  1794.         "math"
  1795.         "displaymath"
  1796.         "equation"
  1797.         "(-"
  1798.         "array…"
  1799.         "eqnarray…"
  1800.         "eqnarray*…"
  1801.         "(-"
  1802.         "general…"}
  1803.     }
  1804.     
  1805.     {menu -n Formulas -p interpretMenuItem {
  1806.         "subscript"
  1807.         "superscript"
  1808.         "fraction"
  1809.         "squareRoot"
  1810.         "nthRoot"
  1811.         "(-"
  1812.         "oneParameter…"
  1813.         "twoParameters…"
  1814.         }
  1815.     }
  1816.     
  1817.     {menu -n Greek -p interpretMenuItem {
  1818.         "alpha"
  1819.         "beta"
  1820.         "gamma"
  1821.         "delta"
  1822.         "epsilon"
  1823.         "zeta"
  1824.         "eta"
  1825.         "theta"
  1826.         "iota"
  1827.         "kappa"
  1828.         "lambda"
  1829.         "mu"
  1830.         "nu"
  1831.         "xi"
  1832.         "pi"
  1833.         "rho"
  1834.         "sigma"
  1835.         "tau"
  1836.         "upsilon"
  1837.         "phi"
  1838.         "chi"
  1839.         "psi"
  1840.         "omega"
  1841.         }
  1842.     }
  1843.     {menu -n Greek2 -p interpretMenuItem {
  1844.         "capGamma"
  1845.         "capDelta"
  1846.         "capTheta"
  1847.         "capLambda"
  1848.         "capXi"
  1849.         "capPi"
  1850.         "capSigma"
  1851.         "capUpsilon"
  1852.         "capPhi"
  1853.         "capPsi"
  1854.         "capOmega"
  1855.         "(-"
  1856.         "varEpsilon"
  1857.         "varTheta"
  1858.         "varPi"
  1859.         "varRho"
  1860.         "varSigma"
  1861.         "varPhi"
  1862.         }
  1863.     }
  1864.         
  1865.     {menu -n BinaryOperators -p interpretMenuItem {
  1866.         "plusOrMinus"
  1867.         "minusOrPlus"
  1868.         "multiply"
  1869.         "divide"
  1870.         "asterisk"
  1871.         "star"
  1872.         "centerDot"
  1873.         "bullet"
  1874.         "circle"
  1875.         "bigCircle"
  1876.         "intersection"
  1877.         "union"
  1878.         "logicalAnd"
  1879.         "logicalOr"
  1880.         "setMinus"
  1881.         }
  1882.     }
  1883.     
  1884.     {menu -n Relations -p interpretMenuItem {
  1885.         "notEqual"
  1886.         "lessOrEqual"
  1887.         "greaterOrEqual"
  1888.         "subset"
  1889.         "superset"
  1890.         "subsetOrEqual"
  1891.         "supersetOrEqual"
  1892.         "elementOf"
  1893.         "equivalent"
  1894.         "similar"
  1895.         "similarEqual"
  1896.         "dotEqual"
  1897.         "approximate"
  1898.         "congruent"
  1899.         }
  1900.     }
  1901.     
  1902.     {menu -n LargeOperators -p interpretMenuItem {
  1903.         "sum"
  1904.         "product"
  1905.         "integral"
  1906.         "bigUnion"
  1907.         "bigIntersection"
  1908.         "bigAnd"
  1909.         "bigOr"
  1910.         }
  1911.     }
  1912.     
  1913.     {menu -n Arrows -p interpretMenuItem {
  1914.         "mapsTo"
  1915.         "leftArrow"
  1916.         "rightArrow"
  1917.         "left-rightArrow"
  1918.         "dblLeftArrow"
  1919.         "dblRightArrow"
  1920.         "dblLeft-rightArrow"
  1921.         }
  1922.     }
  1923.     
  1924.     {menu -n Dots -p interpretMenuItem {
  1925.         "centerDot"
  1926.         "bullet"
  1927.         "(-"
  1928.         "ellipsis"
  1929.         "centerDots"
  1930.         "verticalDots"
  1931.         "diagonalDots"
  1932.         }
  1933.     }
  1934.     
  1935.     {menu -n Symbols -p interpretMenuItem {
  1936.         "aleph"
  1937.         "emptySet"
  1938.         "negation"
  1939.         "forAll"
  1940.         "exists"
  1941.         "scriptL"
  1942.         "nabla"
  1943.         "partial"
  1944.         "infinity"
  1945.         "backslash"
  1946.         "angle"
  1947.         "box"
  1948.         "diamond"
  1949.         "triangle"
  1950.         }
  1951.     }
  1952.         
  1953.     {menu -n (Functions -p interpretMenuItem {
  1954.         }
  1955.     }
  1956.  
  1957.     {menu -n Delimiters -p interpretMenuItem {
  1958.         "parentheses"
  1959.         "brackets"
  1960.         "braces"
  1961.         "absoluteValue"
  1962.         "otherDelims…"
  1963.         "(-"
  1964.         "half-openInterval"
  1965.         "half-closedInterval"
  1966.         "(-"
  1967.         "bigParentheses"
  1968.         "bigBrackets"
  1969.         "bigBraces"
  1970.         "bigAbsoluteValue"
  1971.         "otherBigDelims…"
  1972.         "(-"
  1973.         "bigLeftBrace"
  1974.         "otherMixedBigDelims…"
  1975.         }
  1976.     }
  1977.         
  1978.     {menu -n mathAccents -p interpretMenuItem {
  1979.         "hat"
  1980.         "check"
  1981.         "breve"
  1982.         "acuteAccent"
  1983.         "graveAccent"
  1984.         "tilde"
  1985.         "bar"
  1986.         "vector"
  1987.         "dot"
  1988.         "dblDot"
  1989.         "(-"
  1990.         "wideHat"
  1991.         "wideTilde"
  1992.         "(-"
  1993.         "dotlessI"
  1994.         "dotlessJ"
  1995.         }
  1996.     }
  1997.     
  1998.     {menu -n Grouping -p interpretMenuItem {
  1999.         "underline"
  2000.         "overline"
  2001.         "underbrace"
  2002.         "overbrace"
  2003.         "(-"
  2004.         "stack"
  2005.         }
  2006.     }
  2007.     
  2008.     {menu -n Spacing -p interpretMenuItem {
  2009.         "thin"
  2010.         "negThin"
  2011.         "medium"
  2012.         "thick"
  2013.         "(-"
  2014.         "quad"
  2015.         "dblQuad"
  2016.         }
  2017.     }
  2018.     
  2019.     {menu -n MathStyle -p interpretMenuItem {
  2020.         "mathItalic"
  2021.         "calligraphic"
  2022.         "(-"
  2023.         "(fraktur"
  2024.         "(script"
  2025.         "(blackboardBold"
  2026.         "(-"
  2027.         "displayStyle"
  2028.         "textStyle"
  2029.         "scriptStyle"
  2030.         "scriptscriptStyle"
  2031.         }
  2032.     }
  2033. }
  2034.  
  2035.  
  2036. #############################################################################
  2037. #
  2038. # Special Key Bindings.
  2039. #
  2040. # abbreviations:  <o> = option, <z> = control, <s> = shift, <c> = command
  2041. #
  2042. #############################################################################
  2043.  
  2044. bind 0x14 <z> commentLine TeX
  2045. if {$optionIsMeta == "0"} then {
  2046.  
  2047.     #  use option for macros, escape for meta
  2048.  
  2049.     bind    'a'    <o>    alpha    "TeX"
  2050.     bind    'a'    <os>    angle    "TeX"
  2051.     bind    'a'    <oz>    forAll    "TeX"
  2052.     bind    'a'    <co>    acuteAccent    "TeX"
  2053.     
  2054.     bind    'b'    <o>    beta    "TeX"
  2055.     bind    'b'    <oz>    box    "TeX"
  2056.     bind    'b'    <co>    bar    "TeX"
  2057.     bind    'b'    <cs>    bold    "TeX"
  2058.     
  2059.     bind    'c'    <o>    chi    "TeX"
  2060.     bind    'c'    <co>    check    "TeX"
  2061.     bind    'c'    <cs>    citation    "TeX"
  2062.     bind    'c'    <cso>    calligraphic    "TeX"
  2063.     
  2064.     bind    'd'    <o>    delta    "TeX"
  2065.     bind    'd'    <os>    capDelta    "TeX"
  2066.     bind    'd'    <oz>    diamond    "TeX"
  2067.     bind    'd'    <co>    dot    "TeX"
  2068.     bind    'd'    <cso>    dblDot    "TeX"
  2069.     
  2070.     bind    'e'    <o>    epsilon    "TeX"
  2071.     bind    'e'    <os>    exists    "TeX"
  2072.     bind    'e'    <oz>    varEpsilon    "TeX"
  2073.     bind    'e'    <cs>    emphatic    "TeX"
  2074.     
  2075.     bind    'f'    <o>    phi    "TeX"
  2076.     bind    'f'    <os>    capPhi    "TeX"
  2077.     bind    'f'    <oz>    varPhi    "TeX"
  2078.     bind    'f'    <co>    fraction    "TeX"
  2079.     bind    'f'    <cs>    footnote    "TeX"
  2080.     
  2081.     bind    'g'    <o>    gamma    "TeX"
  2082.     bind    'g'    <os>    capGamma    "TeX"
  2083.     bind    'g'    <oz>    copyright    "TeX"
  2084.     bind    'g'    <co>    graveAccent    "TeX"
  2085.     
  2086.     bind    'h'    <o>    eta    "TeX"
  2087.     bind    'h'    <co>    hat    "TeX"
  2088.     bind    'h'    <cs>    smallCaps    "TeX"
  2089.     bind    'h'    <cso>    wideHat    "TeX"
  2090.     
  2091.     bind    'i'    <o>    iota    "TeX"
  2092.     bind    'i'    <oz>    dotlessI    "TeX"
  2093.     bind    'i'    <co>    integral    "TeX"
  2094.     bind    'i'    <cs>    italic    "TeX"
  2095.     bind    'i'    <cso>    mathItalic    "TeX"
  2096.     
  2097.     bind    'j'    <o>    partial    "TeX"
  2098.     bind    'j'    <oz>    dotlessJ    "TeX"
  2099.     
  2100.     bind    'k'    <o>    kappa    "TeX"
  2101.     
  2102.     bind    'l'    <o>    lambda    "TeX"
  2103.     bind    'l'    <os>    capLambda    "TeX"
  2104.     bind    'l'    <oz>    scriptL    "TeX"
  2105.     bind    'l'    <cs>    label    "TeX"
  2106.     
  2107.     bind    'm'    <o>    mu    "TeX"
  2108.     bind    'm'    <oz>    mapsTo    "TeX"
  2109.     bind    'm'    <co>    mbox    "TeX"
  2110.     bind    'm'    <cs>    mbox    "TeX"
  2111.     
  2112.     bind    'n'    <o>    nu    "TeX"
  2113.     bind    'n'    <os>    aleph    "TeX"
  2114.     bind    'n'    <oz>    intersection    "TeX"
  2115.     bind    'n'    <co>    nthRoot    "TeX"
  2116.     bind    'n'    <cs>    note    "TeX"
  2117.     
  2118.     bind    'o'    <o>    circle    "TeX"
  2119.     bind    'o'    <os>    bigCircle    "TeX"
  2120.     bind    'o'    <co>    overline    "TeX"
  2121.     bind    'o'    <cso>    overbrace    "TeX"
  2122.     
  2123.     bind    'p'    <o>    pi    "TeX"
  2124.     bind    'p'    <os>    capPi    "TeX"
  2125.     bind    'p'    <oz>    varPi    "TeX"
  2126.     bind    'p'    <co>    product    "TeX"
  2127.     bind    'p'    <cs>    pageRef    "TeX"
  2128.     
  2129.     bind    'q'    <o>    theta    "TeX"
  2130.     bind    'q'    <os>    capTheta    "TeX"
  2131.     bind    'q'    <oz>    varTheta    "TeX"
  2132.     
  2133.     bind    'r'    <o>    rho    "TeX"
  2134.     bind    'r'    <oz>    varRho    "TeX"
  2135.     bind    'r'    <co>    squareRoot    "TeX"
  2136.     bind    'r'    <cs>    roman    "TeX"
  2137.     
  2138.     bind    's'    <o>    sigma    "TeX"
  2139.     bind    's'    <os>    capSigma    "TeX"
  2140.     bind    's'    <oz>    varSigma    "TeX"
  2141.     bind    's'    <co>    sum    "TeX"
  2142.     bind    's'    <cs>    slanted    "TeX"
  2143.     
  2144.     bind    't'    <o>    tau    "TeX"
  2145.     bind    't'    <os>    dagger    "TeX"
  2146.     bind    't'    <oz>    triangle    "TeX"
  2147.     bind    't'    <co>    tilde    "TeX"
  2148.     bind    't'    <cs>    typewriter    "TeX"
  2149.     bind    't'    <cso>    wideTilde    "TeX"
  2150.     
  2151.     bind    'u'    <o>    upsilon    "TeX"
  2152.     bind    'u'    <os>    capUpsilon    "TeX"
  2153.     bind    'u'    <oz>    union    "TeX"
  2154.     bind    'u'    <co>    underline    "TeX"
  2155.     bind    'u'    <cso>    underbrace    "TeX"
  2156.     
  2157.     bind    'v'    <o>    nabla    "TeX"
  2158.     bind    'v'    <oz>    logicalOr    "TeX"
  2159.     bind    'v'    <co>    vector    "TeX"
  2160.     
  2161.     bind    'w'    <o>    omega    "TeX"
  2162.     bind    'w'    <os>    capOmega    "TeX"
  2163.     bind    'w'    <oz>    logicalAnd    "TeX"
  2164.     bind    'w'    <cs>    sansSerif    "TeX"
  2165.     
  2166.     bind    'x'    <o>    xi    "TeX"
  2167.     bind    'x'    <os>    capXi    "TeX"
  2168.     bind    'x'    <oz>    multiply    "TeX"
  2169.     bind    'x'    <cs>    crossRef    "TeX"
  2170.     
  2171.     bind    'y'    <o>    psi    "TeX"
  2172.     bind    'y'    <os>    capPsi    "TeX"
  2173.     
  2174.     bind    'z'    <o>    zeta    "TeX"
  2175.     
  2176.     bind    '\ '    <o>    thin    "TeX"
  2177.     bind    '\ '    <os>    negThin    "TeX"
  2178.     bind    '\ '    <oz>    medium    "TeX"
  2179.     bind    '\ '    <co>    thick    "TeX"
  2180.     bind    '\ '    <cs>    quad    "TeX"
  2181.     bind    '\ '    <cso>    dblQuad    "TeX"
  2182.     
  2183.     bind    ','    <o>    lessOrEqual    "TeX"
  2184.     bind    ','    <os>    subset    "TeX"
  2185.     bind    ','    <oz>    subsetOrEqual    "TeX"
  2186.     bind    ','    <co>    subscript    "TeX"
  2187.     
  2188.     bind    '.'    <o>    greaterOrEqual    "TeX"
  2189.     bind    '.'    <os>    superset    "TeX"
  2190.     bind    '.'    <oz>    supersetOrEqual    "TeX"
  2191.     bind    '.'    <co>    superscript    "TeX"
  2192.     
  2193.     bind    '/'    <o>    divide    "TeX"
  2194.     bind    '/'    <co>    fraction    "TeX"
  2195.     
  2196.     bind    '\;'    <o>    ellipsis    "TeX"
  2197.     bind    '\;'    <os>    centerDots    "TeX"
  2198.     bind    '\;'    <oz>    verticalDots    "TeX"
  2199.     bind    '\;'    <co>    diagonalDots    "TeX"
  2200.     
  2201.     # apostrophe:
  2202.     bind    0x27    <co>    acuteAccent    "TeX"
  2203.     bind    0x27    <cs>    quotes    "TeX"
  2204.     bind    0x27    <cso>    dblQuotes    "TeX"
  2205.  
  2206.     bind    '\['    <o>    brackets    "TeX"
  2207.     bind    '\['    <os>    braces    "TeX"
  2208.     bind    '\['    <co>    bigBrackets    "TeX"
  2209.     bind    '\['    <cso>    bigBraces    "TeX"
  2210.  
  2211.     bind    '\]'    <o>    displayStyle    "TeX"
  2212.     bind    '\]'    <os>    textStyle    "TeX"
  2213.     bind    '\]'    <oz>    scriptStyle    "TeX"
  2214.     bind    '\]'    <co>    scriptscriptStyle    "TeX"
  2215.     bind    '\]'    <cso>    bigLeftBrace    "TeX"
  2216.     
  2217.     bind    '\'    <o>    backslash    "TeX"
  2218.     bind    '\'    <os>    absoluteValue    "TeX"
  2219.     bind    '\'    <oz>    setMinus    "TeX"
  2220.     bind    '\'    <co>    bigAbsoluteValue    "TeX"
  2221.     bind    '\'    <cs>    "oneParameter"    "TeX"
  2222.     bind    '\'    <cso>    "twoParameters"    "TeX"
  2223.     
  2224.     bind    '`'    <co>    graveAccent    "TeX"
  2225.     bind    '`'    <cso>    tilde    "TeX"
  2226.         
  2227.     # Change to latexMath and latexDisplaymath, if desired:
  2228.     bind    '4'    <co>    texMath    "TeX"
  2229.     bind    '4'    <cso>    texDisplaymath    "TeX"
  2230.     
  2231.     bind    '5'    <o>    infinity    "TeX"
  2232.     
  2233.     bind    '6'    <o>    sectionMark    "TeX"
  2234.     bind    '6'    <co>    superscript    "TeX"
  2235.     
  2236.     bind    '7'    <o>    paragraphMark    "TeX"
  2237.     
  2238.     bind    '8'    <o>    bullet    "TeX"
  2239.     bind    '8'    <os>    asterisk    "TeX"
  2240.     bind    '8'    <oz>    centerDot    "TeX"
  2241.     
  2242.     bind    '9'    <os>    parentheses    "TeX"
  2243.     bind    '9'    <co>    bigParentheses    "TeX"
  2244.     
  2245.     bind    '0'    <oz>    emptySet    "TeX"
  2246.     
  2247.     bind    '-'    <o>    similar    "TeX"
  2248.     bind    '-'    <os>    minusOrPlus    "TeX"
  2249.     bind    '-'    <oz>    negation    "TeX"
  2250.     bind    '-'    <co>    subscript    "TeX"
  2251.     
  2252.     bind    '='    <o>    notEqual    "TeX"
  2253.     bind    '='    <os>    plusOrMinus    "TeX"
  2254.     bind    '='    <oz>    approximate    "TeX"
  2255.     bind    '='    <co>    bar    "TeX"
  2256.     
  2257.     bind    F5    <o>    math    "TeX"
  2258.     bind    F5    <os>    displaymath    "TeX"
  2259.     bind    F5    <oz>    equation    "TeX"
  2260.     
  2261.     bind    F6    <o>    "myArray"    "TeX"
  2262.     bind    F6    <os>    "eqnarray"    "TeX"
  2263.     bind    F6    <oz>    "eqnarrayStar"    "TeX"
  2264.     
  2265.     bind    F7    <o>    "enumerate"    "TeX"
  2266.     bind    F7    <os>    "itemize"    "TeX"
  2267.     bind    F7    <oz>    "description"    "TeX"
  2268.     
  2269.     bind    F8    <o>    "tabular"    "TeX"
  2270.     bind    F8    <os>    tabbing    "TeX"
  2271.     
  2272.     bind    F9    <o>    figure    "TeX"
  2273.     bind    F9    <os>    table    "TeX"
  2274.     bind    F9    <oz>    slide    "TeX"
  2275.     
  2276.     bind    F10    <o>    verbatim    "TeX"
  2277.     bind    F10    <os>    quote    "TeX"
  2278.     bind    F10    <oz>    quotation    "TeX"
  2279.     bind    F10    <co>    verse    "TeX"
  2280.     
  2281.     bind    F11    <o>    "index"    "TeX"
  2282.     bind    F11    <os>    "bibliography"    "TeX"
  2283.     
  2284.     bind    F12    <o>    "general"    "TeX"
  2285.     
  2286.     # tab:
  2287.     bind    0x30    nextTabStop    "TeX"
  2288.     bind    0x30    <s>     previousTabStop    "TeX"
  2289.     
  2290. } else {
  2291.     
  2292.     #    bind    macros    to    option-control,    use    option    as    meta
  2293.     
  2294.     bind    'a'    <zo>    alpha    "TeX"
  2295.     bind    'a'    <zos>    angle    "TeX"
  2296.     # bind    'a'    <oz>    forAll    "TeX"
  2297.     bind    'a'    <zco>    acuteAccent    "TeX"
  2298.     
  2299.     bind    'b'    <zo>    beta    "TeX"
  2300.     # bind    'b'    <oz>    box    "TeX"
  2301.     bind    'b'    <zco>    bar    "TeX"
  2302.     bind    'b'    <zcs>    bold    "TeX"
  2303.     
  2304.     bind    'c'    <zo>    chi    "TeX"
  2305.     bind    'c'    <zco>    check    "TeX"
  2306.     bind    'c'    <zcs>    citation    "TeX"
  2307.     bind    'c'    <zcso>    calligraphic    "TeX"
  2308.     
  2309.     bind    'd'    <zo>    delta    "TeX"
  2310.     bind    'd'    <zos>    capDelta    "TeX"
  2311.     # bind    'd'    <oz>    diamond    "TeX"
  2312.     bind    'd'    <zco>    dot    "TeX"
  2313.     bind    'd'    <zcso>    dblDot    "TeX"
  2314.     
  2315.     bind    'e'    <zo>    epsilon    "TeX"
  2316.     bind    'e'    <zos>    exists    "TeX"
  2317.     # bind    'e'    <oz>    varEpsilon    "TeX"
  2318.     bind    'e'    <zcs>    emphatic    "TeX"
  2319.     
  2320.     bind    'f'    <zo>    phi    "TeX"
  2321.     bind    'f'    <zos>    capPhi    "TeX"
  2322.     # bind    'f'    <oz>    varPhi    "TeX"
  2323.     bind    'f'    <zco>    fraction    "TeX"
  2324.     bind    'f'    <zcs>    footnote    "TeX"
  2325.     
  2326.     bind    'g'    <zo>    gamma    "TeX"
  2327.     bind    'g'    <zos>    capGamma    "TeX"
  2328.     # bind    'g'    <oz>    copyright    "TeX"
  2329.     bind    'g'    <zco>    graveAccent    "TeX"
  2330.     
  2331.     bind    'h'    <zo>    eta    "TeX"
  2332.     bind    'h'    <zco>    hat    "TeX"
  2333.     bind    'h'    <zcs>    smallCaps    "TeX"
  2334.     bind    'h'    <zcso>    wideHat    "TeX"
  2335.     
  2336.     bind    'i'    <zo>    iota    "TeX"
  2337.     # bind    'i'    <oz>    dotlessI    "TeX"
  2338.     bind    'i'    <zco>    integral    "TeX"
  2339.     bind    'i'    <zcs>    italic    "TeX"
  2340.     bind    'i'    <zcso>    mathItalic    "TeX"
  2341.     
  2342.     bind    'j'    <zo>    partial    "TeX"
  2343.     # bind    'j'    <oz>    dotlessJ    "TeX"
  2344.     
  2345.     bind    'k'    <zo>    kappa    "TeX"
  2346.     
  2347.     bind    'l'    <zo>    lambda    "TeX"
  2348.     bind    'l'    <zos>    capLambda    "TeX"
  2349.     # bind    'l'    <oz>    scriptL    "TeX"
  2350.     bind    'l'    <zcs>    label    "TeX"
  2351.     
  2352.     bind    'm'    <zo>    mu    "TeX"
  2353.     # bind    'm'    <oz>    mapsTo    "TeX"
  2354.     bind    'm'    <zco>    mbox    "TeX"
  2355.     bind    'm'    <zcs>    mbox    "TeX"
  2356.     
  2357.     bind    'n'    <zo>    nu    "TeX"
  2358.     bind    'n'    <zos>    aleph    "TeX"
  2359.     # bind    'n'    <oz>    intersection    "TeX"
  2360.     bind    'n'    <zco>    nthRoot    "TeX"
  2361.     bind    'n'    <zcs>    note    "TeX"
  2362.     
  2363.     bind    'o'    <zo>    circle    "TeX"
  2364.     bind    'o'    <zos>    bigCircle    "TeX"
  2365.     bind    'o'    <zco>    overline    "TeX"
  2366.     bind    'o'    <zcso>    overbrace    "TeX"
  2367.     
  2368.     bind    'p'    <zo>    pi    "TeX"
  2369.     bind    'p'    <zos>    capPi    "TeX"
  2370.     # bind    'p'    <oz>    varPi    "TeX"
  2371.     bind    'p'    <zco>    product    "TeX"
  2372.     bind    'p'    <zcs>    pageRef    "TeX"
  2373.     
  2374.     bind    'q'    <zo>    theta    "TeX"
  2375.     bind    'q'    <zos>    capTheta    "TeX"
  2376.     # bind    'q'    <oz>    varTheta    "TeX"
  2377.     
  2378.     bind    'r'    <zo>    rho    "TeX"
  2379.     # bind    'r'    <oz>    varRho    "TeX"
  2380.     bind    'r'    <zco>    squareRoot    "TeX"
  2381.     bind    'r'    <zcs>    roman    "TeX"
  2382.     
  2383.     bind    's'    <zo>    sigma    "TeX"
  2384.     bind    's'    <zos>    capSigma    "TeX"
  2385.     # bind    's'    <oz>    varSigma    "TeX"
  2386.     bind    's'    <zco>    sum    "TeX"
  2387.     bind    's'    <zcs>    slanted    "TeX"
  2388.     
  2389.     bind    't'    <zo>    tau    "TeX"
  2390.     bind    't'    <zos>    dagger    "TeX"
  2391.     # bind    't'    <oz>    triangle    "TeX"
  2392.     bind    't'    <zco>    tilde    "TeX"
  2393.     bind    't'    <zcs>    typewriter    "TeX"
  2394.     bind    't'    <zcso>    wideTilde    "TeX"
  2395.     
  2396.     bind    'u'    <zo>    upsilon    "TeX"
  2397.     bind    'u'    <zos>    capUpsilon    "TeX"
  2398.     # bind    'u'    <oz>    union    "TeX"
  2399.     bind    'u'    <zco>    underline    "TeX"
  2400.     bind    'u'    <zcso>    underbrace    "TeX"
  2401.     
  2402.     bind    'v'    <zo>    nabla    "TeX"
  2403.     # bind    'v'    <oz>    logicalOr    "TeX"
  2404.     bind    'v'    <zco>    vector    "TeX"
  2405.     
  2406.     bind    'w'    <zo>    omega    "TeX"
  2407.     bind    'w'    <zos>    capOmega    "TeX"
  2408.     # bind    'w'    <oz>    logicalAnd    "TeX"
  2409.     bind    'w'    <zcs>    sansSerif    "TeX"
  2410.     
  2411.     bind    'x'    <zo>    xi    "TeX"
  2412.     bind    'x'    <zos>    capXi    "TeX"
  2413.     # bind    'x'    <oz>    multiply    "TeX"
  2414.     bind    'x'    <zcs>    crossRef    "TeX"
  2415.     
  2416.     bind    'y'    <zo>    psi    "TeX"
  2417.     bind    'y'    <zos>    capPsi    "TeX"
  2418.     
  2419.     bind    'z'    <zo>    zeta    "TeX"
  2420.     
  2421.     bind    '\ '    <zo>    thin    "TeX"
  2422.     bind    '\ '    <zos>    negThin    "TeX"
  2423.     # bind    '\ '    <oz>    medium    "TeX"
  2424.     bind    '\ '    <zco>    thick    "TeX"
  2425.     bind    '\ '    <zcs>    quad    "TeX"
  2426.     bind    '\ '    <zcso>    dblQuad    "TeX"
  2427.     
  2428.     bind    ','    <zo>    lessOrEqual    "TeX"
  2429.     bind    ','    <zos>    subset    "TeX"
  2430.     # bind    ','    <oz>    subsetOrEqual    "TeX"
  2431.     bind    ','    <zco>    subscript    "TeX"
  2432.     
  2433.     bind    '.'    <zo>    greaterOrEqual    "TeX"
  2434.     bind    '.'    <zos>    superset    "TeX"
  2435.     # bind    '.'    <oz>    supersetOrEqual    "TeX"
  2436.     bind    '.'    <zco>    superscript    "TeX"
  2437.     
  2438.     bind    '/'    <zo>    divide    "TeX"
  2439.     bind    '/'    <zco>    fraction    "TeX"
  2440.     
  2441.     bind    '\;'    <zo>    ellipsis    "TeX"
  2442.     bind    '\;'    <zos>    centerDots    "TeX"
  2443.     # bind    '\;'    <oz>    verticalDots    "TeX"
  2444.     bind    '\;'    <zco>    diagonalDots    "TeX"
  2445.     
  2446.     # apostrophe:
  2447.     bind    0x27    <zco>    acuteAccent    "TeX"
  2448.     bind    0x27    <zcs>    quotes    "TeX"
  2449.     bind    0x27    <zcso>    dblQuotes    "TeX"
  2450.  
  2451.     bind    '\['    <zo>    brackets    "TeX"
  2452.     bind    '\['    <zos>    braces    "TeX"
  2453.     bind    '\['    <zco>    bigBrackets    "TeX"
  2454.     bind    '\['    <zcso>    bigBraces    "TeX"
  2455.  
  2456.     bind    '\]'    <zo>    displayStyle    "TeX"
  2457.     bind    '\]'    <zos>    textStyle    "TeX"
  2458.     # bind    '\]'    <oz>    scriptStyle    "TeX"
  2459.     bind    '\]'    <zco>    scriptscriptStyle    "TeX"
  2460.     bind    '\]'    <zcso>    bigLeftBrace    "TeX"
  2461.     
  2462.     bind    '\'    <zo>    backslash    "TeX"
  2463.     bind    '\'    <zos>    absoluteValue    "TeX"
  2464.     # bind    '\'    <oz>    setMinus    "TeX"
  2465.     bind    '\'    <zco>    bigAbsoluteValue    "TeX"
  2466.     bind    '\'    <zcs>    "oneParameter"    "TeX"
  2467.     bind    '\'    <zcso>    "twoParameters"    "TeX"
  2468.     
  2469.     bind    '`'    <zco>    graveAccent    "TeX"
  2470.     bind    '`'    <zcso>    tilde    "TeX"
  2471.     
  2472.     # Change to latexMath and latexDisplaymath, if desired:
  2473.     bind    '4'    <zco>    texMath    "TeX"
  2474.     bind    '4'    <zcso>    texDisplaymath    "TeX"
  2475.     
  2476.     bind    '5'    <zo>    infinity    "TeX"
  2477.     
  2478.     bind    '6'    <zo>    sectionMark    "TeX"
  2479.     bind    '6'    <zco>    superscript    "TeX"
  2480.     
  2481.     bind    '7'    <zo>    paragraphMark    "TeX"
  2482.     
  2483.     bind    '8'    <zo>    bullet    "TeX"
  2484.     bind    '8'    <zos>    asterisk    "TeX"
  2485.     # bind    '8'    <oz>    centerDot    "TeX"
  2486.     
  2487.     bind    '9'    <zos>    parentheses    "TeX"
  2488.     bind    '9'    <zco>    bigParentheses    "TeX"
  2489.     
  2490.     # bind    '0'    <oz>    emptySet    "TeX"
  2491.     
  2492.     bind    '-'    <zo>    similar    "TeX"
  2493.     bind    '-'    <zos>    minusOrPlus    "TeX"
  2494.     # bind    '-'    <oz>    negation    "TeX"
  2495.     bind    '-'    <zco>    subscript    "TeX"
  2496.     
  2497.     bind    '='    <zo>    notEqual    "TeX"
  2498.     bind    '='    <zos>    plusOrMinus    "TeX"
  2499.     # bind    '='    <oz>    approximate    "TeX"
  2500.     bind    '='    <zco>    bar    "TeX"
  2501.     
  2502.     bind    F5    <zo>    math    "TeX"
  2503.     bind    F5    <zos>    displaymath    "TeX"
  2504.     # bind    F5    <oz>    equation    "TeX"
  2505.     
  2506.     bind    F6    <zo>    "myArray"    "TeX"
  2507.     bind    F6    <zos>    "eqnarray"    "TeX"
  2508.     # bind    F6    <oz>    "eqnarrayStar"    "TeX"
  2509.     
  2510.     bind    F7    <zo>    "enumerate"    "TeX"
  2511.     bind    F7    <zos>    "itemize"    "TeX"
  2512.     # bind    F7    <oz>    "description"    "TeX"
  2513.     
  2514.     bind    F8    <zo>    "tabular"    "TeX"
  2515.     bind    F8    <zos>    tabbing    "TeX"
  2516.     
  2517.     bind    F9    <zo>    figure    "TeX"
  2518.     bind    F9    <zos>    table    "TeX"
  2519.     # bind    F9    <oz>    slide    "TeX"
  2520.     
  2521.     bind    F10    <zo>    verbatim    "TeX"
  2522.     bind    F10    <zos>    quote    "TeX"
  2523.     # bind    F10    <oz>    quotation    "TeX"
  2524.     bind    F10    <zco>    verse    "TeX"
  2525.     
  2526.     bind    F11    <zo>    "index"    "TeX"
  2527.     bind    F11    <zos>    "bibliography"    "TeX"
  2528.     
  2529.     bind    F12    <zo>    "general"    "TeX"
  2530.  
  2531.     # tab:
  2532.     bind    0x30    nextTabStop    "TeX"
  2533.     bind    0x30    <s>     previousTabStop    "TeX"
  2534.     
  2535. }
  2536.  
  2537. #================================================================================
  2538. # Random nonsense
  2539. #================================================================================
  2540.  
  2541. proc nextSubSection {} {
  2542.     set res [search -f 1 -r 1 -n {(section|chapter)\{} [nextLineStart [getPos]]]
  2543.     if {[string length $res]} {
  2544.         goto [lineStart [lindex $res 0]]
  2545.     } else {
  2546.         beep
  2547.     }
  2548. }
  2549. bind 'n' <zs> nextSubSection "TeX"
  2550.  
  2551. proc prevSubSection {} {
  2552.     set res [search -f 0 -r 1 -n {(section|chapter)\{} [lineStart [getPos]]]
  2553.     if {[string length $res]} {
  2554.         goto [lineStart [lindex $res 0]]
  2555.     } else {
  2556.         beep
  2557.     }
  2558. }
  2559. bind 'p' <zs> prevSubSection "TeX"
  2560.  
  2561.  
  2562. proc nextSection {} {
  2563.     set res [search -f 1 -r 1 -n {\\(section|chapter)\{} [nextLineStart [getPos]]]
  2564.     if {[string length $res]} {
  2565.         goto [lineStart [lindex $res 0]]
  2566.     } else {
  2567.         beep
  2568.     }
  2569. }
  2570. bind 'n' <zsc> nextSection "TeX"
  2571.  
  2572. proc prevSection {} {
  2573.     set res [search -f 0 -r 1 -n {\\(section|chapter)\{} [expr [lineStart [getPos]]-1]]
  2574.     if {[string length $res]} {
  2575.         goto [lineStart [lindex $res 0]]
  2576.     } else {
  2577.         beep
  2578.     }
  2579. }
  2580. bind 'p' <zsc> prevSection "TeX"
  2581.  
  2582. set texKeyWords { diff }
  2583. regModeKeywords -e {%} -m {\\} -c red -k blue TeX $texKeyWords
  2584.